home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / BTH2SRC.ZIP / INTRO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-12-03  |  5.5 KB  |  83 lines
  1. { TheDraw Pascal Crunched Screen Image.  Date: 12/03/95 }
  2. procedure introansi;
  3. const
  4.   IMAGEDATA_WIDTH=80;
  5.   IMAGEDATA_DEPTH=22;
  6.   IMAGEDATA_LENGTH=1233;
  7.   IMAGEDATA : array [1..1233] of Char = (
  8.     #15,#16,#25,'!', #8,'▄','▄','█','█','█','▄','▄',#25, #9,'▄','▄',#23,
  9.     '▓',#16,'▄','▄',#24,#26,#31,'-',' ','▀','█',#23,'█','▓',#16,'█','▄',
  10.     ' ',' ','▀',' ',' ','▀',' ','▄','▄','▀','▀','▀','█','█','█',#23,'█',
  11.     '▓','█',#16,'▄',' ',#26,#20,'-',#24, #0,#17,#26,#25,'▓',#16,' ',' ',
  12.      #8,'▄','▄','█','█',#23,'▓',#16,'▄','▄',' ','▀','▀',#23,'▓',#16,'▀',
  13.     ' ','▄',' ','■','▄','▄',#25, #4,'▄',' ','▀',#23,'█','█','█','▓',#16,
  14.     '▌',' ', #0,#17,#26,#19,'▓',#24,#26,#24,'▒',#16,' ', #8,'▄','█',#23,
  15.     '▓',#16,'█',#23,'█',#16,'█','█','▀','▀','▀','▄',' ',' ','■',' ','▄',
  16.     '▄','▄',#25, #2,'░','▄','▀',' ', #1,'▄',' ', #8,'▄','▐',#23,'█','▓',
  17.     #16,'▀',' ', #0,#17,#26,#20,'▒',#24,#26, #6,'░',#26, #9,'▄',#26, #6,
  18.     '░',#16,' ', #8,'▐',#23,'▓','▓',#16,'█','▓','▄',#25, #4,'▐','▌',#12,
  19.     '░',' ', #8,'▀',#25, #2,'▀','▀','▄','▐','▌',' ', #1,'▀', #0,#17,'░',
  20.      #1,#16,'▄',' ', #8,'▀','▀',' ', #1,'▄', #0,#17,#26,#21,'░',#24,' ',
  21.     '▄','▄',#16,' ',#14,#26, #3,'▄',#26, #7,'█','▄','▄','▄',' ', #0,#17,
  22.     '▄','▄', #9,'░',' ', #0,'░',#16,' ', #8,'▀','█','▀','▀',#25, #3,'▄',
  23.     '▀','▀',' ',#12,'▄','▄','▀',' ', #4,'▄',#12,#20,'▄',#16,'█','▄',' ',
  24.      #8,'▀',#12,'▄','█','▄',' ', #1,#26,#10,'█',#17,' ',#16,#26,#15,'█',
  25.     #24, #0,#17,'█',#14,#16,'▄',#26,#18,'█','▄',' ', #0,#17,'▄', #9,'░',
  26.     ' ', #0,'▀', #1,#16,'▄',' ', #8,'■',' ',' ','▀',' ',#12,'▄','▄','▀',
  27.     '▀','█','▌',' ', #4,'▐',#12,#20,'▐',#16,#26, #7,'█','▌', #1,'▐','█',
  28.      #9,#17,'░', #1,#16,#26, #5,'█',#26, #5,'▀',#26, #3,'█', #9,#17,'░',
  29.      #1,#16,#26, #5,'█', #9,#17,'░', #1,#16,'█',#24, #8,'▌',#14,'▀',#26,
  30.      #7,'█',#26, #7,'▀',#26, #4,'█',' ', #0,#17,'▄', #9,'▒','░',' ', #1,
  31.     #16,'▀',' ',#12,'▄','▄','█','▀','▄','█',#20,'█','█',#16,'█',' ',' ',
  32.     #20,' ','▀','▀','▀','▓',#16,'█',#20,'█',#16,'█','█','▀', #1,'▄', #9,
  33.     #17,'░','░','▒','░', #1,#16,'▀','▀',' ', #7,'▄', #8,'▄','▄',#26, #3,
  34.     '█','▄','▄',' ', #1,'▀', #9,#17,'░','▒','░', #1,#16,#26, #3,'▀', #9,
  35.     #17,'░','░','░',#24, #8,#16,'█','▄','▄',' ',#14,'▀','▀','█','▀',' ',
  36.      #8,'▄','▄','█',#23,'█','▓','▒', #7,#16,'▄', #8,#23,'▒', #7,#16,'▄',
  37.     ' ',#14,'▀','▀','█','█','█',' ', #9,#17,'▒', #0,'▄',#16,' ',#12,'▄',
  38.     '█',' ',#15,'▄',' ',#12,'▀',#20,'▒','▓',#16,'█','█',#22,'█',#16,'▌',
  39.     ' ',#15,'▄','▄','▄',' ', #4,'▀',#12,#20,'▀','▓',#16,'▀',' ', #1,'■',
  40.     #26, #3,'▀',' ', #7,'▄', #8,#23,'░', #7,#16,'▄', #8,#23,'░','▓',#16,
  41.     '█','█','▀','█','▄','█','▀','█','▄',' ',' ','▄','▄',#23,'█','▓',#16,
  42.     '▄',' ', #9,#17,'░','░',#24, #8,#16,#26, #3,'█','▓','▄',' ','▄','█',
  43.     '█','█','▀','█','█',#23,'▓','▒','▓','░','▓','█',#16,'▄','▄','▄',' ',
  44.     #12,'▄','▄','█','█',#20,'█',#16,'█','▄','▄',#25, #2,'▀','▀',#20,'▓',
  45.     #16,'▀','▀','▄','▄',#25, #2,#26, #5,'▄',#26, #4,'▀','▄', #7,'▀', #8,
  46.     #23,'░','░','▒','▓','█','▓',#16,'█','█','█','▌','▐','█','▌',#26, #5,
  47.     '█','▌', #1,'▐', #9,#17,'░',#24, #8,#23,'▓',#16,#26, #4,'█','▐',#26,
  48.      #7,'█',#23,'▓',#16,'█',#23,'▒',#16,'█','█','█','▀',#12,'▄','▀','▀',
  49.     '▀',#25, #5,'▀','▀','▀',#26, #7,'▄','▀','▀',' ',#15,'▄',' ',' ','▄',
  50.     '▄','▄',' ','▀',#23,'▓',#16,'■',#12,'▐','▌', #8,'▐',#23,'▒',#16,#26,
  51.      #6,'█','▄','█','█','█','▐',#26, #5,'█',' ', #1,'▀',#24, #8,#26, #4,
  52.     '█','▄','█','█','█',#23,'▓',#16,'█','█','█','▄','▀',#23,'█',#16,'█',
  53.     #23,'▓',#16,'█','█','▌',#12,'▐','▌',' ',' ','▄','▄',#22,'▓',#20,'▄',
  54.     ' ', #4,#16,#26, #3,'█','▄','▄',#25, #3, #8,'▄',' ', #7,'▄',' ',#15,
  55.     #23,'▀','█',#16,'█','▌', #7,'▐',#15,#23,'▐',#16,'█','█','█',' ',#12,
  56.     '▄','▄','▀', #8,'▄',#26,#11,'█','▄',#26, #7,'█','▄',#24,#23,'▓',#16,
  57.     #26, #7,'█',#23,'▓',#16,#26, #5,'█','▄','▄','▀','▀','█','▄',#12,'▀',
  58.     '▄','▄',' ','▀',' ',' ',#26, #3,'▄',' ', #4,#26, #4,'▀','■',' ',' ',
  59.     #12,'▄',' ', #7,'█',#15,#23,'▓',#16,'█','█',' ',#23,' ','▀','▓',#16,
  60.     ' ',#12,'▀', #8,'▄','▄','▓','█','▀',#23,'▓',#16,#26,#18,'█',#23,'▓',
  61.     #24,'▒','▓',#16,#26,#13,'█',#23,'▓',#16,#26, #5,'█','▄',' ',#12,#26,
  62.      #3,'▀',' ', #8,'▄','▄',' ',#12,#26, #3,'▀','▄','▄','▀','▀','▀',' ',
  63.      #8,'▄',' ', #7,'▀',#15,'▀',' ',' ', #7,'▀',' ', #8,'▄',#26, #8,'█',
  64.     '▄','▄','█','▀','█','█','█','▄',#26, #6,'█',#23,'▓',#16,'█',#23,'▓',
  65.     '▒',#24,#16,#26,'6','-',' ','/',' ', #7,'m','o','d','e','u','s',' ',
  66.     'k','h','a','h','n',' ', #8,'/',' ',#26, #6,'-',#24,#25,#21,#15,'B',
  67.     'e','y','o','n','d',' ','T','h','e',' ','H','o','r','i','z','o','n',
  68.     ' ',':',' ','I','s','s','u','e',' ','N','u','m','b','e','r',' ','T',
  69.     'w','o',#24, #8,#26,'O','-',#24,#25,#13, #7,'L','a','y','o','u','t',
  70.     ' ','a','n','d',' ','D','e','s','i','g','n',' ',':',' ','M','i','n',
  71.     'd','C','r','i','m','e', #8,'/', #7,'S','h','i','v','a','n',' ','B',
  72.     'a','s','t','a','r','d', #8,'/', #7,'P','u','s','h','e','a','d',#24,
  73.     #25,#28,'C','o','d','i','n','g',' ',':',' ','S','h','i','v','a','n',
  74.     ' ','B','a','s','t','a','r','d',#24,#25,#23,'M','a','i','n',' ','I',
  75.     'n','t','e','r','f','a','c','e',' ',':',' ','S','u','b','c','o','n',
  76.     's','i','o','u','s','n','e','s','s',#24,#25,#21,'R','e','a','d','e',
  77.     'r',' ','I','n','t','e','r','f','a','c','e',' ',':',' ','F','a','c',
  78.     's','i','m','i','l','e', #8,'/', #7,'P','u','s','h','e','a','d',#24,
  79.     #25,#28,'V','G','A',' ','A','n','i','m','a','t','i','o','n',' ',':',
  80.     ' ','N','e','m','e','s','i','s',#24);
  81. begin;
  82.      UnCrunch (IMAGEDATA,ScreenAddr[ (1*2) + (1*160) -162],IMAGEDATA_LENGTH);
  83. end;